"File in for MijnGeld deployment.

This is done in a virgin image located anywhere.

ATTENTION: This file expects to be filed in on a Windows machine, due to the format of the filename strings. If you want to use this file on an other platform, please modify the file strings accordingly.

The first variables set the paths to the important locations:

	vwFolder = the current VisualWorks installation image directory

	sepherFolder = the location of the trunk with source code files generic for Sepher projects

	projectFolder = the location of the trunk with source code files for the project

Please set these paths conforming your setup."



| vwFolder sepherFolder projectFolder |

vwFolder := '\\.host\shared folders\projecten\Cincom\vw7.6nc\image' asFilename.

sepherFolder := '\\.host\shared folders\projecten\Mijn Projecten\Sepher\Dev\Smalltalk\Sepher\st' 

			asFilename.

projectFolder := '\\.host\shared folders\projecten\Mijn Projecten\Sepher\Dev\Smalltalk\MijnGeld\st' 

			asFilename.



"First base parcels. Cancel updating when you are filing into an image with these parcels already loaded."

#(

'..\contributed\EncryptedSettings\EncryptedSettings.pcl' 

'..\dllcc\DLLCC.pcl' 

'..\packaging\RuntimePackager.pcl' 

'..\security\AES.pcl' 

'..\security\DES.pcl' 

'..\parcels\BGOK.pcl' 

'..\parcels\BOSS.pcl' 

'..\parcels\VWHelp.pcl' 

'..\parcels\Tools-Settings-VW.pcl' 

'..\parcels\Tools-FileBrowser.pcl' 

'..\net\HTTP.pcl'

'..\net\NetConfigTool.pcl' 

'..\contributed\Aragon\Parcels\Aragon.Widgets.pcl') 

	do: [:each | 

		Transcript cr; cr; show: 'Loading ...:', each.

		Parcel loadParcelFrom: (vwFolder construct: each)].



"Sepher generic code. This code can be located elsewhere or in the same folder."

#(

'WindowsIconLibrary.st' 

'Aragon-Patches.st' 

'Sepher-Namespace.st' 

'Sepher-Base.st' 

'Sepher-Base Components.st' 

'Sepher-Currency.st' 

'Calendar Widget.st'

'Root.Smalltalk.Tools.ListIconLibrary-resources.st'

'Root.Smalltalk.Tools.ToolbarIconLibrary-resources.st') 

	do: [:each | 		

		Transcript cr; cr; show: 'Loading ...:', each.

		(sepherFolder asFilename construct: each) fileIn].

WindowsIconLibrary flush.



"Special section, hard coded paths."

Transcript cr; cr; show: 'Loading ...:', '\\.host\shared folders\projecten\Mijn Projecten\Sepher\Dev\Smalltalk\MijnGeldConverter\st\MijnGeldConverter.st'.

'\\.host\shared folders\projecten\Mijn Projecten\Sepher\Dev\Smalltalk\MijnGeldConverter\st\MijnGeldConverter.st' asFilename fileIn.



"Now application specific code, from the project source folder"

#(

'MijnGeld.st' 

'QIFImporter.st') 

	do: [:each | 

		Transcript cr; cr; show: 'Loading ...:', each.

		(projectFolder construct: each) fileIn].



"Some extra initialisation code."

"Timezone to MET, this should be done differently..."



Transcript cr; cr; show: 'Setting time zone'.

TimeZone setDefaultTimeZone: (TimeZone 

			timeDifference: 1

			DST: 1

			start: 2

			end: 3

			from: 90

			to: 304

			startDay: #Sunday)	"on March 31"	"until October 31"